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3 cop LOG785 **k MAP EC HISTORY ** 002500 2692 201 A(ENTPT POINT TO MAP ENTPY POINT TABLE 
u euieaee ds eee ee oa eee eee ea eee ZOD A HH HH HHH A FR RR ROR IRC ROR ROR RO AOR ICRI CIO TOR FRO RIOR RK i tk 
5 * my 203 BK HK HK HK He HK KK KK He a oe He He eK He ee ho KK KK 
6 * #AK PREREQUISITES 1K * 204 ** es 
7 * * 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPEPVISOR (D3CO0) # 
Q x NONE * 206 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER # x 
9 x * 207 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR * 
10 RR CO ICI IR IG CCR IR IOK R  k k k  i r k  fR a aOk keok ak ak a 208 ** THE INDICATED MESSAGE(S). THEPE ARE FOUR TABLES USED FOP THIS saiea 
11 * fe 209 ie PURPOSE THEY ARE: 7 
* KK K We ok * 
at eeepc 31 3 STEP MIDSMIKELIPOLVES TAE"Eoonass ov ue nore co ruvore ano 35 
14 * Cc 0 PROGR REME * THE 0 ORE 
15 x MENoGE Rone eo nee CERN SEQUshaneNt * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ok 
16 IR OR I I II IR II OR IO IO III I IO ICO Fe i ICI ICI a tk i ak 214 ** ENTRIES ARE AS FOLLOWES ¥* 
ie Be 3: Be aREe Ro REee Ea pberpenSTe? NFER ‘ 
18 * 408K REA'S INCORPORATED * 40k * 
19 * * 217 ** Cc AN EQUATE FOR THE STEP NUMBER 4k 
20 * NONE * 218 ** ne 
31 * * 219 ** RULE INFORMATION TABLE #k 
22 eo OI III II III I III II IIR IIR IFO III II I IK 220 ** THIS TABLE CONTAINES THE PEQUIRED INFORMATION TO EXECUTE * 
23 * : 33) ee UNIQUELY DEFINED AREA ANDICATED BELOW ERD OF TABLE 1S +4 
* KK x IK * ° 
ac * Spee ANS Ree ONS x 223 ** INDICATED WITH A X'0000' FOR THE PULE EQUATE. * 
26 * NONE * 224 ** a 
27 * * 225 ** SQUES * * 
28 ORO OR IGRI IG Gi ag aaa gO GIS 3c IK ak ack akc 2k a kc ak 226 ** A) RULE EQUATE X'0100" -- 
39 * * 227 be B) ADDRESS OF THE YES LEG RULE ee 
0 * CK | oe kK * 
32 * DATE 17DEC76 DATE 18JAN77 DATE O4MART7 DATE 10JUN77 * 
33 + E.C. 578486 E.C. 578573  E.C. 578638 E.C. 578625 : 23 ste B) ADDRESS OF MESSAGE TO PRINT xs 
35 * DATE O1MAR78 DATE DATE DATE * 233 ** $STOP a 
36 * E.C. 75528 2¢. .C. Ce Ss 234 ** A) RULE EQUATE X'0102' ** 
37 * oo? = z * 235 ** B) ADDRESS OF MESSAGE 2 
: 38 FR III III RII RIGOR FGI OI I Ak aC $38 mp! scone ee 
002500 40 17852 START X'2500! START ADDPESS OF ALL 'I' TYPE PROG 
000100 41 QUES EQU x¥'0100! EQUATED VALUE FOR MDI STATEMENT 238 ** A) PULE EQUATE X*'0200' ** 
000101 42 @FIXT FOU X'0101! EQUATED VALUE FOR MDI STATEMENT 239 i B) ADDRESS OF MESSAGE =e 
000102 43 @STOP EOU) x'0102' FOUATED VALUE FOR MDI STATEMENT 240 ** C) NAME OF MAP TO GO TO aed 
000200 44 @GOTO EOU X¥'0200! EQUATED VALUE FOR MDI STATEMENT 241 ** D) ENTPY POINT WITHIN GO TO MAP TO USE nod 
000201 45 @CALL EOU X'*0201!8 EQUATED VALUE FOR MDI STATEMENT 242 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFER ENCE xs 
000300 46 @INPT EQU X*0300! EQUATED VALUE FOR MDI STATEMENT 244 ** ** 
000400 47 @OUXX EOQU. x'O4OoOo! EQUATED VALUE FOR MDI STATEMENT 245 *x* SCALL ek 
000500 48 OTUXX EOU X¥'0500! EQUATED VALUE FOR MDI STATEMENT 246 ** A) RULE EQUATE X'0201 # k 
000600 49 @aNVLD EOU X¥'0600! FOUATED VALUE FOR MDI STATEMENT 247] ** B) ADDRESS OF MESSAGE ¥* 
000000 50 EC EOU x¥'0000° EQUATE FOR EQUAL 248 ** C) NAME OF MAP TO CALL -* 
000004 51 NE EOU X'ooog' FOUATE FOR NOT EQUAL 249 ** D) ENTRY POINT WITHIN CALLED MAP TO USE iad 
000008 52 HI FOU Xx' 0008! EQUATE FOR HIGH | 250 ** E) INDICATOR FOR EXTERNAL OR INTERNAL PEFERENCE * 
00000C 53 NH EOU x*000C! FOUATE FOR NOT HIGH 251) ** ee 
000010 54 LO EOQU. x'0010' EQUATE FOR LOW 292 ** SINPT wed 
000014 55 NL EQU X'0014! EQUATE FOR NOT LOW 253 ** A) RULE EQUATE X'0300! nie 
000010 56 LT FOU  x'0010! EQUATE FOR LESS THAN 254 ** B) INPUT TYPE ae OR HEX) pie 
| 00000C 57 LE EOU x'OOOC® EOUATE FOR LESS THAN OR EQUAL TO 200. 8 C) ADDRESS OF YES LEG RULE ¥* 
000008 58 GT EOU x'0008! FOUATE FOR GREATER THAN 256 ** D) DESTINATION LOCATION OF INPUT DATA des 
000014 59 GE FOU x'0014' EQUATE FOR GREATER THAN OR EQUAL TO 25) ** E) LENGTH OF INPUT DATA <* 
000200 60 ON EQOU x'0200! EQUATE FOR ON 258 ** F) LOWER LIMIT OF GOOD DATA +e 
000202 61 OF EQU xX'0202" EQUATE FOR OFF 209 ** G) HIGHEP LIMIT OF GOOD DATA t 
000204 62 MX EOD) x'02041 EQUATE FOR MIXED 260 ** ++ 
000000 63 EBC EQU X'OO00! EQUATE FOR EBCDIC DATA TRANSFER 261 ** SOUXX * 
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000001 65 XTRNL EQU X'*0001! EQUATE FOR EXTERNAL REFERENCE 263 ** B) ADDRESS OF YES LEG RULE ** 
000000 66 INTRNL EQOU X'O0000! EQUATE FOR INTERNAL REFERENCE 264 ** C) TU BRANCH TO ADDRESS (INITIAL aed 
000000 67 PARM EOU X'0000! EQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS (SECONDARY) x 
000001 68 DA EOU X'O00018 EQUATE FOP DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER IN BYTES sii 
000002 69 UA EQU X'0002' EQUATE FOR UNIT ADDRESS 26] -** F) PAPAMETEP TO PASS TO TU * 
000000 70 DUMMY EOU X¥'*Q0008 DUMMY EQUATE 268 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAYETER * 
001800 72 PID EOU *-X'QDOO! ADDRESS OF MDI HEADER 269 ** %* 
000232 73 PTYPE EOU *-X'2Q2CE! ADDRESS OF PROCESSOR TYPE FIELD 2.0 ee STU XX * 
00180C 74 STEPNUM EQU PID#x*000C! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE EQUATE X'0500! * 
00180E 75 OPWD1 EQU PID+X'OOOF! ADDRESS OF OPTION WORD ONE 272 ** B) ADDPESS OF YES LEG RULE +e 
001810 76 OPWD2 EOU PID+X*'0010'! ADDRESS OF OPTION WORD TWO 213 tee C) TU BRANCH TO ADDRESS * 
001818 77 TUSTATUS EQU PID+xX'0018! ADDRESS OF TU STATUS WORD 274 ** D) TYPE OF COMPARE TO MAKE ON RESULTS ied 
00181A 78 TOWORK EOU PID+X'OO1A! ADDRESS OF TU WORK AREA 21D 4% E) LENGTH OF COMPARED RESULTS sae 
00189A 79 TUPARM1 EOQU PTID+X'OO9A' ADDRESS OF PAPM 1 POINTER 216: ** F) MASK FIELD FOP COMPARE ile 
00189C 80 TUPARM2 EOU PID+xX'009C! ADDRESS OF PARM 2 POINTER 277] ** G) LENGTH OF PARAMETER IN BYTES ee 
001895 81 TUPARM3 EQU PID+X'009E? ADDRESS OF PARM 3 POINTER 218. %% H) PARAMETER TO PASS TO THE TU ** 
0018A0 82 TUPARM4 EOD PID+X*OOAO! ADDRESS OF PARM & POINTER 279 ** I) STORE ADDRESS FOR FIPST 8 WORDS OF PARAYETEP a* 
0018A2 83 TUPARMS EOU PID+X'O0OA2!" ADDRESS OF PARM 5 POINTER 290. ** * 
OO18 AY 84 TUPARM6 EQU PID+X"OOAU? ADDRESS OF PARM 6 POINTER 20 1. e* SNVLD +? 
0018A6 85 TUPARM7 EOQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 282 ** A) PULE ECUATE X*0600! * 
0018A8 86 TUPARM8 EOQU PID+X'OOA8! ADDRESS OF PARM 8 POINTER 284 ** ee 
OO18AA 87 TUPARM9 EOU PID+X'OOAA! ADDRESS OF PARM 9 POINTER 205: <* ENTRY POINT TABLE pane 
0018AC 88 TUPARM10 EOU PID#+X'"'OOAC! ADDRESS OF PARM 10 POTNTER 286 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT *% 
OO18AE 89 TUPARM11 EOQU PID+X'OOAF? ADDRESS OF PARM 11 POINTER 28] ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE "e 
0018B0 90 TUPARN12 EOU PTD+X'OOROt ADDRESS OF PARM 12 POINTER 288 ** REFERENCED BY NAME AND ADDPESS. ENTRIES ARE AS FOLLOWES: ** 
0018 B2 91 TUPARM13 FOU PID+X'OOB2! ADDRESS OF PARM 13 POINTER 289 ** vel 
0018B4 92 TUPARM14 FOU PID+xX'OOBY4! ADDRESS OF PARM 14 POINTER 290 ** A) NAME OF ENTRY POINT ae 
0018B6 93 TUEARM15 EOU PID+X*'OOB6! ADDRESS OF PARM 15 POINTER 291. ** B) ADDPESS OF ENTPY POINT FULE TABLE t+ 
0018B8 94 TUPARM16 EOQU PID+X'OOBB8! ADDRESS OF PARM 16 POINTE 292 ** * 
OO18BA 95 TUMSGWIP EOU PID+X*OOBA! ADDRESS OF -—> TO COMMON MSG WRITEP 293 ** THE ENTRY POINT TAELE END IS INDICATED BY A X*"0000! see 
0018BE 96 TUUA EOU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 294 ** * 
0018C0 97 TODA EQU PID+X*OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 295° ** MESSAGE TABLE +e 
0018C2 98 TUBUFF FOU PTD+X'00C2! ADDRESS OF LAST USED WORD TN MAP 296 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * 
0018C4 99 TULAST EQU PID+x'OOCKgt ADDRESS OF LAST ADDRESSABLE WORD 291 4® VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * 
0018C6 100 TURESULN ECU PID+X'OOC6! ADDRESS OF LENGTH OF TU RESULTS 298 # eR 
0018C8 101 TURESOL EOQU PID+X'O00C8B! ADDRESS OF TU RESULTS FIELD 290: ee A) EQUATE FOR START OF MESSAGE BLOCK * 
0018FC 102 MAPNAME EQU PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 300 ** B) NUMBEP OF LINES OF MESSAGE ** 
001948 103 TUINPT EOU PID+x'O1488 ADDRESS OF $INPT DATA 301 ** C) LENGTH OF FOLLOWING LINE ye 
001968 104 PARMARA EQU PID+X'O16E! ADDRESS OF $INPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE nae 
0019B8 105 @DCADD1 EOU PID+X'01B8! MDI POINTER 303 ¥* E) LENGTH OF FOLLOWING LINE ** 
OO19BA 106 ODCADD2 EQU PID+xX*O1BAt MDI POTNTER 304 *% F) SECOND LINE OF MESSAGE ** 
g019cu 197 SUPSTAT EQU PID+X'O1CH! ADDPFSS OF MDI STATUS one pl G) ETC. pe 
501908 109 BEyEDD FOU eee Ayes oe DEVICE aes tae : CIO MDS LSS STS STS SS ST STS SSS SPS SS TSS SLES SS SSS SESS SS SSS SSS Pete eee eee LeeLee eS ta 2 
0019 FY 110 DEVADD2 EOU PID4+xX'O1EQ? ADDRESS OF DEVICE ADDPESS TABLE 2 SIME te StS StS SPS SSS SSS SSS SL SSL ES SESS SS SELES SSL SSS LESS SSS SSS CSS SL SL SS SSL. Le SS 
O019EE 111 DEVADD3 EOU PID+X"O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 
0019F8 112 DEVADD4Y EOU PID+X'O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 
001A02 113 DEVADDS EOU PID4#X'0202! ADDRESS OF DEVICE ADDRESS TABLE 5 
001A0C 114 DEVADD6 EOQU PID+X'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 115 DEVADD7 EOU PUD*X"0216" ADDRESS OF DEVICE ADDRESS TABLE 7 
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IS NOT VALID 


BOARD 
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003838 Uy eis tees 4 Meptetot 0000 sastcetTs DE A *—* CYCLE STEAL WD 4; DEVICE DEPEND 
OOSRh 0048 iq D a (0020) 002CC2 0000 886+CSTL5 DC A (¥-%* CYCLE STEAL WD 5, DEVICE DEPEND 
SOsBse pees 753 De AG0508 CARD A-A1H2.! 002cCcC4 0000 887+CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 
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00 3B 42 4040 49 De eG005 ' 002cC8 0000 8894CSTL8 DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 
890+* 
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oosueS DIC5DUDEESCS4ODIE Jan ert on C0034" REMOVE JUMPERS IF ANY WERE PUT ON.'! naocce ee oot eneee Hh 24 fe—a{ GPETONAL DATA ssoieaiahe 
+ X'O0021! 
OO3BER BOOK 595 Be A (G0) — 003CD2 0060 895s TORTH DE A (4 * ee RETORN ADRS TO MDI 
X*OOB2? 
00 3B 96 st eamasiepaeuaaache 449 De 5 (0038) on as 00 5CDE 9 9p0 Set SVCAL De A (eeey ADRS OF DEVICE ADDRESS 
Bon oee bane ee aoe ae C100 38 REMOVE JUMPER. CHECK CABLES D-W1B5 AND!® 002CD8 0000 ae DC A (*-*) IBIS CYLINDER ADDRESS 
B * RETURN TO MDI WITHOUT DOING ANY PROGRAM 
MPEG Oi 183 De CLOOQ8+D-¥182. S008 FUNCTION. THE RESULTS THAT W WERE SET UP IN THE Aeeun AREA ARE 
eka Be Get eee erate ae ae C0026) SEE SF308 , MLD VOLUME 01.' ene STILL VALID BUT A DIFFERENT TEST IS TO PE PERFORMED. 
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OOsc3e pees 498 DE etoote HE DE. * 000004 916 CHNGE EQU 4 CHANGE LEVEL SVC 
OOSCHE se 499 DC R(OO4a) : : 000005 917 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
EXT VC 
AOsere E2C5CS4OF4FIF6F24 a 700007 FOU CLOONS SEE 4962 MIM , PARAGRAPH 3.5 FOR PROCEDURE. ! eeogoT aie utr E u § eh ee — 
QO RESET EQU 8 RESET DEVICE SVC 
Q02Cc7C 0001 802 DC AL2 (0001) 000008 92 . ERO 3 BERD aD STC 
003c80 pecs 80% De x (3020), PLACE CARD A-A1H2.' O0000R 339 START EQU 10 START CYCLE STEAL SVC 
Eee. ee eer 805 DIT ooBs es : 00000B 923 STCSS EQU 11 eee e orries nye svc 
n REPARE D 
a eee eee sae e enna 280085 g35 Bebo Bou 12 READ Wing guvedtou s2% 3 Sn" s¥C° 
14 
002Cc96 0000 onto Dc OOOO ae nee PROGRAM OPTION CONTROL WORD 2 990008 57 Rene EQU 15 READ STATUS SVC ee cae 
000014 812484 FOU 17 1 if aaa sae Sead oeae soba oie 900049 339 WRIT FOU 17 Le ae FUNCTION BIT 3 ON SVC 
CTR EQU 18 
000013 Bus BSI 5 J 19 5 { * SECOND OPTION WD AND ARE. TO 000013 334 RICE EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000044 5153882 FOU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 ee cree EQU Ze Ck CONTROL BLOCK SVC 
000012 81 01Bea FOU 39 2 3 * Bo001e 934 RECSD EQU 22 REQUEST Us¢ OF DCP DISK SVC 
000017 B1Bes FOU 53 7 1 * 000017 935 RELSD EQU on Nata eye OF DCP DISK SVC 
U 2 
900019 8302889 FOU 53 5 i * 900019 339 BTOH FOU 25 EBCDIC TO HEX SVC (STRING 
OO00TR B34 tBe8 EOU 5e 10 2 * QOOOTA 938 HTOE EQU 26 henay iG dee See” Sananc 
d0001¢ g33+n00 Bou 38042 5 ‘ 000016 940 TOA EOD 38 HEX To Ascri Svc (Stntnc) 
D000 1e B5stRe2 FOU 56 17 3 * Q00018 342 ATOR FOU 35 ASCII TO EBCDIC SVC SPRING 
O00 TE 8323 Bes FOU 34 15 1 * OOOO1F 943 READI EQU 31 READ DATA SETS FOR gt ERA UTIL 
ae 5 0 14 2 CHARACTER SUPPLIED 000020 O44 WRITI EQU 32 WRITE DATA SETS FOR $1 
S000 TE 83 Q5CHP 7 t 34 15 1 COMPARE OPERATION O46 ** RK HS ESE EEE aC ORO OTTO AO I AIA 
* 
002C98 0000 eae e ree DC X*0000! PROGRAM OPTION CONTROL WORD 3 eae : Rote S HEN HERONS Ae CONG RARE : 
83904 1 ERROR INTERRUPT ER 5 Cs AVAILABLE ean CSA 308 Fix awa SaaS 05s 50s ek 0h 
83444 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE OOOOYE 951 PLUS EQU Co. NTHOS CUE 
eras 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON oooee ee raves BOG < - 
+ 
IT RESULTS VOID NG 000001 955 ONE EQU 1 
838+* 5 HARD ERROR FOUND HE 13 OfO. cc ERROR TOcc 900002 936 TWO  EOU 2 
839+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN 000003 957 THREE EQU 3 
Se 7 \NO INTR BRP EC Dee gue 15 INTERRUPT CC ERROR INCC 900008 aoe FOUR E Z 
+ 
8 MYSTERY INTERRUPT HAPPENED 000006 960 SIX EQU 6 
000034 BUSTER FOU 33 t 4 ERROR RECEIVED ON INTERRUPT 000007 961 SEVEN EQU 7 
000022 8444XT EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 962 EIGHT EQU 8 
000023 B84U5+IN EQU 35 2 1 INTERRUPT RECEIVED CONTROL BIT 000009 963 NINE EQU 9 
000024 84U6+XE EQU 36 4 8 EXPECTED ERROR RESPONSF OOOOOA 964 TEN EQU 10 
000025 84 7+HE EQU 37 5 4 HARD ERROR, 8 RETRIES 00000B 965 ELEVN EQU 11 11 
000026 B84U8+$LE EQU 38 6 2 INTERRUPT 6N WRONG LEVEL ERROR 00000C 966 TWELV EQU 12 12 
000027 BSYO4NT EQU 39 7 1 NO INTERRUPT EXPECTED E Q00000D 967 THRIN EQU 13 13 
00 8 850+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS QOO000F 968 FIVIN EQU 15 15 
000059 851+CSA EQU 41 9 4 CYCLE STEAL AVAILABLE 000010 969 SIXTN EQU 16 16 
00002A 852+CE EQU 42 10 2 CYCLE So ea oteaee INERRRUPT ERROR AGOGkS ao4 Bee EQU 2a ea 
90003¢ BeusNee FOU 4a 12 : TEST UNIT RESULTS NO GOOD Oat aG aac oNree Eau re aoe 
Metteeds SeerHOrN LOU ue 1 3 000400 974 ONEK EQU 1024 1024 
900038 Bees TNce E q re 13 ‘ INTERRUPT CC ERROR 000800 975 TWOK EQU 2048 2048 
as Be ase . 000C00 976 THREK EQU 3072 TONG 
ae COMMON BUFFER FOR PRINTING DATA oeeeee aa4 ross EON ate a8 
+ 
- IFICATION FFFFFE 980 M2 EQU <2 22 
3369 9998 geargtars Be A(t 78" aND Tune CONDERTON Cones PEEPED ay 3 Eke 23 3 
Oosces nititd eeetTaReo De i ee ADRS OF LAST 170 + 4 BYTES te se 984 EECA E EEE CACORE EEOC D OO OETA IAAI 
* 
B05ERK 9000 BeIaDEV? DC A ++ ae terre gs? Ree 986 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
OOSCRE 5000 Se8¢ DEVS DC a med * 987 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. : 
x 
p03¢a2 BF Or SC TT ROU p v1 READ ID BUFFER FOR IBIS & TERN 389 OR FR RII RII I I IR ROI III IR IIR IO I IO ko kk oie ak ik 
OOSCRE 71S DCBUF FOU * DCB BUFFER FOR LAST DCB USED 000000 990 BSO EQU 0 
002 0000 872+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 000001 991 BS1 EQU 1 
CAC 873+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 992 BS2 EQU 2 
OO5cAs 9000 874+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000003 993 BS3 EQU 3 
003CB0 0000 875+DCB4Y DC A (*¥-* LAST DCB TABLE, DEV DEP WORD 000004 994 BS4 EQU o 
003CB2 3000 876+DCB5 DC A (*—* LAST DCB TABLE, DEV DEP WORD 000005 995 BS5 EQU 5 
OSCR 4 8000 877+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000006 996 BS6 EQU 6 
O0sCBE 0000 878+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 oon aa EQu i 
002CB8 0000 Sea DC A (*¥-* LAST DCB TARLE, BUFFER ADDRESS Bootes gectees zou : 
* CYCLE STEAL DATA BUFFER OOOOOA 1000 BS10 EQU 10 
OOSCBA 0000 SB2tCSTLA De. A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00000B 1001 BS11 EQU 11 
0O02CBC 0000 8834+CSTL2 DC A (x—] CYCLE STEAL WD 2, PEVICE DEPEND 00000Cc 1002 BS12 EQU 12 
: ‘ Sy N“ ~N ‘ \ ~ . 
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17852 --- UNSAFE ANALYSIS P/N=1635275 EC=755285 PAGE 09 17852 --- UNSAFE ANALYSIS P/N=1635275 EC=755285 PAGE O9A 
LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM ZORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEHENT COPYRIGHT IBM CORP 1976 
13258 svc EXIT RETURN TO USER VIA SUPVR TL 20 434% DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
+% IL + 
we ane 19D Be RH HK HHH HH HK He HH HR HC 2 HC RC ER RC AC CC 2 IC 2 iC RO HE RR HC RCC 2 CC CO a ee ee ie oa OK TT, aa PURPOSE 
224 E 19294INTOK DC X'706E! COPY STATUS ANY LEVEL INTO R3 IL + 
003226 336A 1930+ SRL 13,R3 POSITION INDICATORS IN R3 IL 20474+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003228 4424 2c94 1931+ MVA OPTN1, R4 SET UP BASE ADRS TL 20484 SET THE 'NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
00322Cc 4c63 19324INTR1 TBTS (R4,IN SET INTERRUPT RECEIVED TL 2049%% BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROP CONDITION. 
00322E 4C28 1933+ BT RY es} IS 'cS IN PROGRESS! ON IL 20504+% 
333332 2498 acop 1938. WE RE Efores sae vtuasenoperne Ce ees it EE ates 
+ + Oo TI 
Sere 6FOD 2C9E 133 o  euans EQU R7, $ISB SAVE INTR STATUS AND DEV ADRS Tr a enTe THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
+ IL 
193 8+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 2055+* --> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 
00323A 3521 1939+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 2056+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
00323c 0501 1940+ ABI 1,R5 * IN BIT IL 2057+%* 
00323E CD24 2cD0 1941+ CW S{NTL,RS Is PETS THE CORRECT INTR LEVEL TL 2058+* RETURN CONTROL 
003242 1002 1942+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 2059+% 
003244 4C66 1943+ TBTS (R4,$LE) SET TATE LEVEL ERROR CONTROL BIT IL 2060+* B TURTN* RETURN TO MDI 
903246 acl 194us 3 TBTS Br ER) SET ERROR ON I/O COMMAND CNTL BIT IL An bes OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
+ 
00324A 1204 1948s ON NTE eyes, EXIT OFF THES UNTR LEVEL TL 206 3 6 3 IR RII III IG IC II III III II IOI II IB 1 3 9% 
00324C 4C60 1947+ TBTS (R4,MI) * NO, SET MYSTERY INTR CONTROL BIT IL 0032D4 4020 1818 8000 2064+$ERRS MVWI X'8000' ,TUSTATUS SET ON "NO GOOD! STATUS BIT 
00324E F304 19484 CBI u,R3 ATTENTION INTERRUPT? IL 0032DA 4724 343E 2065+ NVA HEBLK,R? GET ADRS OF CONTROL BLOCK 
003250 1001 1949+ JE TNTRX YES TL 0032DE 601A 2066+ SVC 4hroe CONVERT HEX TO EBC VIS DCP 
003252 4Cé6C 1950+ TBTS (Rh NG) ERROR,UNEXPECTED INTERRUPT 1G 0032E0 0D03 2067+$PRNT MVBI 
003254 6006 19514+INTRX S XIt EXIT THIS LEVEL VIA SUPVR TO PGM IL 0032E2 4324 181A 2068+ NVA TGWORK,R SET UP BUFFER STORAGE 
Oeste eRe ARE LEAS SEE AREEEREREREEE EERE STEER CEES EE SEDES EREEREEEREO BP CRIA EE 0032E6 6B0D 3436 2069+ MVW R3 Borer: 
1954+% OO32EA 4124 3366 2070+ MVA  LIfE1,R1 
1955+ THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT OO32EE OFOY 2071+ MVBI 4,R7 
1956+# HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 0032F0 OEFO08 2072+ MVBI 8,R6 
19574+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS., 0032F2 2B24 2073+MVBUF MVFN (83 eee 
1958+* 0032F4 OFO4 2074+ MVBI (R 
1959+* 0032F6 OA4O 2075+ MVBI x 40%, 
003256 4CA4 1960+X TBTR (R4&,XE) WAS AN ERROR EXPECTED 0032F8 C258 2076+ MVB ee fF 
003258 6ACO 0002 19614 N RO » 2) * YES, EXIT THIS ROUTINE 0032FA BEFB 2077+ JCT vs 
00325C 4CA8 1962+ TBTR (R4,CS) was afto CS IN PROGRESS 0032FC O08 2078+ MVBI 
00325E 1006 1963+ JOFF xXIocv * NO, CONTINUE CHECKING 0032FE 7921 2079+ AWI 
003260 4C2A 1964+ TBI R4 , CE) ts cS a AN ERR CONDITION 003302 BDFI 2080+ Jct ea 
003262 1002 1965+ JOFF xtoto * NO CH 003304 4020 1802 FIFO 2081+ MVWI PIDMS 
003264 68D2 0000 1966+ 6) * cs EERO 00330A 4020 19B8 343C 2082+ MVA FAKETU 10 ,PzD2 
003268 4C69 1967+XIOCO TBTS (R4,CSA) TURN ON x STATS AVAIL FLAG 003310 4020 19BA 3438 20834 MVA DC2PT,@DCADD2 
00326A 5601 1968+ BXS R6,2 GO TO USER 003316 402c 19C4 0080 2084+ OWL BITO060 SUPSTAT 
00326C 4¢21 19694XIOCV TBI R4,ER) WAS ERROR INTR CONTROL BIT ON 00331C 4324 2C9A 2085+ MVA  $TUID,R3 SET UP BUFFER STORAGE 
00326E 1008 19704 JOFF xrocx * NO, EXIT THIS ROUTINE 003320 6F13 18BA 2086¢ BAL TONSG ATR, R7 GO TO MESSAGE WRITER 
+ + 
003270 c520 2c9D 1972+ MVB STOTN+1, R5 GET LAST INTP CC CODE 003324 2088+$CONX EQU * 
003274 F502 1973+ CBI R5 IS THIS CC=2 003324 C720 19D0 2089+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
003276 68D1 0000 1974+ BNE if she * NO, BCH TO ERROR HANDLER 003328 6013 2090+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
00327A C520 2C9E 19754+XIOCQ MVB RS GET fAST ISB DATA BYTE AND IF CS 00332A 6812 2CD2 2091+ B TURTN* RETURN TO MDI SUPERVISOR 
00327E 6A00 3194 1976+ BN x10c§ * AVAILABLE, GO AND GET IT 2092+* 
003282 68D2 0000 1977+ B RG) * ERROR 00332E 0007 2093+BEGIN DC a (eeoa NUMBER OF LINES TO PRINT 
003286 CB25 2C98 1978+XIOCX MVWZ éBr 3,R3 CLEAR OUT OPTION 3 CNTL BITS 003330 0008 2094+ DC A (0008 LINE LENGTH = 8 CHAR 
00328A 5601 1979+ BXS (R6,25 RETURN TO USER VIA REG 6 003332 5C5C40C1C2D6D9E3 20954 DC Ctx* ABORT! 
1980+* 00333A 0028 2096+ DC A (0040) INE LENGTH = 40 CHAR 
1981+% I/O PARAMETER LIST 00333C E3E4C9OCK4OCIDECID 2097+ DC C'*TUID IOIN ISB INST DEV1 DEV2 DEV3 DEV4 ! 
1982+* 003364 0028 2098+ DC A (0040) INE LENGTH = 40 CHAR 
00328C 19D0 19834+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 003366 4O0404040404040404 20994+LINE1 DC ct ' 
00328E 31F4 19844 DC A (XIQER) ERROR ROUTINE ADRS 00338E 0028 2100+ DC A (0040) LINE LENGTH = 40 CHAR 
003290 0000 1985+IODCB DC A (*#-* DCB ADRS OP LEVEL & INTR 003390 C3D5E3D340C4C3C2F 2101+ DC C°CNTL DCB2 DCB3 DCB4 DCB5 CHAD BYCT ADRS ! 
003292 0000 1986+IOMOD DC A (*-* MODIFTER 0033B8 0028 2102+ DC A (0040) LINE LENGTH = 40 CHAR 
003294 0000 1987+ DC A (*-* ADRS OF LAST SVC CALL 0033BA 4O404040404040404 21034+LINE2 DC ct ' 
003296 0000 1988+IORSP DC A (*—-* SECOND WORD OF LAST IDCB 003382 0028 2104+ DC A (0040) LINE LENGTH = 4O CHAR 
19894+%* 0033E4 D9E2ZCIC440C3E260F 2105+ DC C*RSID CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 ! 
1990+* INTEPRUPT CONTROL BLOCK FOR I/O COMMANDS 00340C 0028 21064 DC A (0040) LINE LENGTH = 40 CHAR 
19914+* OO340E 4O404040404040404 21074+LINE3 DC ct t 
003298 19D0 1992+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 2108+%* 
00329A 3224 1993+ DC INTOK INTERRUPT OK RETURN ADRS 003436 0000 2109+BUFPT DC A peo | 
00329C 3200 19944 DC INTER INTERRUPT ERROR ADRS 003438 332E 2110+DC2PT DC A (BEGIN) 
00329E 0003 1995#INTCC DC x" 0003 INTERRUPT CODE EXPECTED 00343A 0101 21114+FIXTU DC X*0101'! 
LBS it teat ene Dirk a tne ne rPmaMr EE eoL ae a rete sr eer tor tek 4 Sena IIMAY 76** 00343C 0101 2112+ FAKETU DC X¥'*o01018 
1998+4+* OOF1FO 21134#PIDMSG10 EQU X'F1FO! 
ee SUBROUTINE 000080 Z114+BIT0080 EQU X'0080! 
+ 
2004+% CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 2116+% DATA CONTROL RLOCK FOR CONVERTING HEX TO EBCDIC 
+ 
2003+* PURPOSE 00343E 0030 2118+HEBLK DC 48) NUMBER OF BYTES TO CONVERT 
2004+4+* 003440 2C9A 2119+ DC TD) FROM ADRS 
2005+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 003442 181A 2120+ DC TOWOR ) AND THE TO ADRS 
20064+* PREPARE ON THF DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000000 2121 END 
2007+* TO INTEPRUPT. 
2008+* 
2009+% CALLING SEQUENCE 
+ 
201 14% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
+ 
2013+* --> BAL $SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
Aa --> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
2016+* RETURN CONTROL 
2017+4* 
2018+* BXS P6,2) RETURN TO USER VIA REG 6 IF OKAY 
2019%% OR B R6f * IF THE DEVICF COULD NOT BE CONNECTED 
+ 
DOD HH A AH He HH He HH he he Be He He he HH He He He he He HC i eH eH i HE He He ee He ee He He He He ee HC OK ie i a ee a A a 3 I eK 
0032A0 OFO06 2022+$CONC MVBI 6, R7 NUMBER OF BYTE TO CLEAR 
0032A2 0OBOO 2023+ MVBI * AND THE DATA TO USE 
0032A4 4524 2CA2 2024+ MVA bev R5 : ALONG WITH THE ADRS TO USE 
0032A8 2BAC 2025+ FFN (85) 
0032AA CB25 2C98 2026+ MVWZ Opt 3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
0032AE 4724 3298 2027+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
0032B2 6014 2028+ SVC CICB * CONNECT IT TO THIS DEVICE 
0032B4 6ADO 0000 2029+ BN (R6) * ERROR RETURN TO USEP 
+ 
0032B8 8828 2CD0 3290 2031+$CONP MVW SINTL, TODCB PUT IN LEVEL & INTR PARAMETER 
0032BE 4724 328C 2032+ MVA IOBLK SET R7 TO CONTROL BLOCK TO PREPARE 
0032C2 4020 2c9C 0708 2033+ MVWI £10708", storn INITIALIZE CONDITION CODE STORAGE 
0032C8 CB25 2C9E 2034+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
0032CC 6E0D 2CA0 2035+ MVW R6, LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 
0032D0 600C 20364 SVC PREP * AND CALL ON SUPVR 
0032D2 5601 2037+ (R6 RETURN TO USER 
B03 Ga EEE EGC EEE GaGa C Ua IGA AAA ASE AK IK) 6 RR 76 44 
2040+* 
2041+* SUBROUTINE 
2042+ 
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CROSS-REFERENCE LISTING COPYRIGHT IBM TORP 1976 CPOSS-REFERENCE LISTING COPYPIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
0 -R0. ABSOLUTE. HEX VALDE (00000000) 1789 
1366 1367 1373 1375 1578 1579 1580 1581 1585 2110 DC2PT > ADDRESS. HEX LOCATION (00003438) IN CSECT(I7852 ) LENGTH(2) 
~R1. ABSOLUTE. HEX VALUE (00000001) 108 DEVADD ADDRESS. HEX LOCATION(000019D0) IN CSECT(I7852 ) LENGTH(1) 
2070 2073 2076 2079 896 1453 1459 1465 1472 1478 1983 199 089 
-R2. {ABSOLOTE. HEX VALUE (00000002) BAG DEV1 ADDRESS, | HEX LOCATION(00002CA2) IN CSECT(1I7852 ° ) LENGTH (2) 
-R3. ABSOLUTE. HEX VALUE (90000903) 1126 DGDCB ADDRESS. HEX LOCATION(00002DC8) IN CSECT(I7852  ) LENGTH(2) 
1484 1485 1526 1530 1532 1611 1613 1669 1672 1724 
1676 1679 1690 1693 1706 1709 1779 1789 = 1792 70 DUMMY ABSOLUTE. HEX VALUE (90000000) 
1793. 1796 1798 1854 1855 1890 1896 1900 1930 429 508 520 532 S44 556 565 586 #595 
1935 1948 1978 2023 2025 2026 2034 2068 2069 609 621 
2073 2085 610 ENTPT ADDRESS. HEX LOCATION(00002692) IN CSECT(I7852 ) LENGTH(1) 
0 -R4. ABSOLUTE. HEX VALUE (00000004) 201 
1061 1361 1378 1385 1393 (1782 1783 1786 1800 50 EQ ABSOLUTE. HEX VALUE(00000000) 
1801 1803 1804 1807 1813 1819 1891 1892 1894 494 
1898 1902 1931 1932 1933 1943 1944 1945 4947 843 ER ABSOLUTE. HEX VALUE (00000021) 
1950 1960 1962 1964 1967 1969 1378 1385 1393 1800 1819 1902 1944 1969 
0 ~R5. ABSOLUTE. HEX VALUE (00000005) 918 EXIT ABSOLUTE. HEX VALUE (00000006) 
1527. 1531 1532 1612 1613 1670 1672 1677 1679 1951 
1691 1693 1707 1709 1790 1792 1794 1796 1812 2112 FAKETU ADDRESS. HEX LOCATION (0000343C) IN CSECT(I7852 ) LENGTH(2) 
1817 1939 1940 1941 1972 1973 1975 2024 2025 2082 
2067 2080 1270 FIVE9 ADDRESS. HEX LOCATION(OOOO2EAC) IN CSECT(I7852  ) LENGTH(2) 
0 -R6. ABSOLUTE. HEX VALUE (00000006) 1583 
1062 1067 1070 1075 1080 1081 1082 1103 1104 801 F00007 ADDRESS. HEX LOCATION(00002C7C) IN CSECT(I7852 ) LENGTH (1) 
1106 1108 1362 1376 1383 1389 1391 1452 1456 608 
1458 1462 1464 1468 1471 1475 41477 «+1481 1486 647 F00012 ADDRESS. HEX LOCATION(00002722) IN CSECT(I7852  ) LENGTH(1) 
1533 1534 1573 1614 1788 1808 1820 1856 1961 460 478 
1966 1968 1974 1977 1979 2029 2035 2037 2072 629 FOO046 ADDRESS. HEX LCCATION (00002698) IN CSECT(I7852 ) LENGTH(1) 
0 -R7. ABSOLUTE. HEX VALUE (00000007) 633 F00058 ADDRESS. HEX LOCATION (O00026BE) IN CSECT(I7852  ) LENGTH(1) 
904 1013 1015 1078 1059 1084 1359 1365 1525 4514 
1529. 1610 1671 1678 1692 1708 1791 1795 1802 643 F00067 ADDRESS. HEX LOCATION (0000270C) IN CSECT(I7852  ) LENGTH(1) 
1895 1936 2022 2027 2032 2065 2071 2074 2086 457 
2089 653 F00081 ADDRESS. HEX LOCATION (00002756) IN CSECT(I7852  ) LENGTH(1) 
2022 $CONC ADDRESS. HEX LOCATION(000032A0) IN CSECT(I7852  ) LENGTH(2) 469 
1062 136 665 F00093 ADDRESS. HEX LOCATION (000027F0) IN CSECT(I7852 ) LENGTH (1) 
2088 SC ONX ADDRESS. HEX LOCATION (00003324) IN CSECT(I7852  ) LENGTH(1) 475 
1019 1100 1404 673 FO0121 ADDRESS. HEX LOCATION (00002834) IN CSECT(I7852 ) LENGTH(1) 
2064 SERPS ADDRESS. HEX LOCATION (000032D4) IN CSECT(I7852 ) LENGTH(6) 515 
1363. 1377 1379 1384 1386 1392 1400 689 F00131 ADDRESS. HEX LOCATION (000028C2) IN CSECT(I7852 ) LENGTH(1) 
893 $INTL ADDRESS, HEX LOCATION(00002CD0) IN CSECT(I7852  ) LENGTH (2) 527 
1941 203 719 FO0147 ADDRESS. HEX LOCATION(000029D8) IN CSECT(I7852 ) LENGTH(1) 
863 $IOIN ADDRESS. HEX LOCATION(00002C9C) IN CSECT(I7852  ) LENGTH(2) 539 
1485 1797 1855 1935 1972 2033 727 F00158 ADDRESS. HEX LOCATION(00002A18) IN CSECT(I7852 ) LENGTH(1) 
864 $ISB ADDRESS. HEX LOCATION(00002C9E) IN CSECT(I7852  ) LENGTH(2) 551 
1798 1936 1975 2034 735 F00175 ADDRESS. HEX LOCATION(00002A44) IN CSECT(I7852  ) LENGTH(1) 
848 $LE ABSOLUTE. HEX VALUE(00000026) 572 
1803 1943 743 F00186 ADDPESS. HEX LOCATION (00002A84) IN CSECT(I7852  ) LENGTH (1) 
1668 $RDID ADDRESS. HEX LOCATION(000030CE) IN CSECT(I7852  ) LENGTH (6) 578 
1075 1391 751 F00190 ADDRESS. HEX LOCATION(OO002ABC) IN CSECT(I7852 ) LENGTH (1) 
1665 $RECL ADDRESS. HEX LOCATION(000030C6) IN CSECT(I7852 ) LENGTH(6) 581 
1376 767 F00206 ADDRESS. HEX LOCATION(00002B28) IN CSECT(I7852.  ) LENGTH(1) 
1705 $RIDS ADDRESS. HEX LOCATION(00003142) IN CSECT(1I7852 ) LENGTH(6) 602 
1106 775 F00210 ADDRESS. HEX LOCATION(00002B68) IN CSECT(I7852 ) LENGTH(1) 
1662 $SEEK ADDRESS. HEX LOCATION(000030BE) IN CSECT(I7852 ) LENGTH (6) 605 
1067 138 2118 HEBLK ADDRESS. HEX LOCATION(0000343E) IN CSECT(I7852 ) LENGTH (2) 
8A2 $TUID ADDRESS. HEX LOCATION(00002C9A) IN CSECT(I7852 ) LENGTH(2) 2065 
903. 1060 1360 20 938 HTOE ABSOLUTE. HEX VALUE(0000001A) 
1717 $WSEC ADDRESS. HEX LOCATION(0000316A) IN CSECT(I7852  ) LENGTH (6) 2066 
1082 1493 IDCBCE1 ADDRESS. HEX LOCATION (0000303C) IN CSECT(I7852 ) LENGTH(2) 
1720 $WSTS ADDRESS. HEX LOCATION(00003178) IN CSECT(I7852  ) LENGTH (6) 1459 1460 
1104 1495 IDCBCE2 ADDRESS. HEX LOCATION(00003040) IN CSECT(I7852 ) LENGTH(2) 
105 @DCADD1 ADDRESS. HEX LOCATION(000019B8) IN CSECT(I7852  ) LENGTH(1) 1465 1466 
2082 1497 IDCBRAP ADDRESS. HEX LOCATION(00003044) IN CSECT(I7852  ) LENGTH (2) 
106 @DCADD2 ADDRESS. HEX LOCATION(000019BA) IN CSECT(I7852  ) LENGTH(1) 1453 1454 
2083 1489 IDCBO ADDRESS. HEX LOCATION(00003034) IN CSECT(I7852 ) LENGTH(2) 
42 @FIXT ABSOLUTE. HEX VALUE (00000101) 1478 1479 
444 = 45 456 459 468 474 #4477 514 526 1491 IDCB1 ADDRESS. HEX LOCATION (00003038) IN CSECT(I7852 ) LENGTH (2) 
538 55 571 577. 580 601 £604 °#607 1472 1473 
49 @NVLD ABSOLUTE HEX VALUE (00000600) 914 IDLE ABSOLUTE. HEX VALUE (00000002) 
41 @QUES ABSOLUTE. HEX VALUE(00000100) 845 IN ABSOLUTE. HEX VALUE(00000023) 
438 8644 447 453 462 465 471 574 1801 1813 1932 
47 @QUXX ABSOLUTE. HEX VALUE (00000400) 1992 INTBL ADDRESS. HEX LOCATION(00003298) IN CSECT(I7852 ) LENGTH (2) 
480 50 517 529 541 553 562 £583 #4592 2027 
48 @TUXX ABSOLUTE HEX VALUE (00000500) 1889 INTER ADDRESS. HEX LOCATION(00003200) IN CSECT(I7852 ) LENGTH(2) 
2093 BEGIN a hDDRESS. HEX LOCATION(0000332E) IN CSECT(I7852 ) LENGTH (2) 1898 INTES ADDRESS. HEX LOCATION (00003218) IN CSECT(I7852. ) LENGTH(2) 
2114 BIT 0080 > ABSOLUTE. HEX VALUE (00000080) 1902 INTET ,ADBRESS. HEX LOCATION(00003220) IN CSECT(I7852 ) LENGTH(2) 
2109 BUFPT oADDRESS. HEX LOCATION (00003436) IN CSECT(I7852  ) LENGTH(2) 1929 INTOK jADDRESS. HEX LOCATION(00003224) IN CSECT(I7852  ) LENGTH(2) 
1269 CB29 ADDRESS. HEX LOCATION(O0002EAA) IN CSECT(I7852  ) LENGTH(2) 1951 INTRX ADDRESS, HEX LOCATION (00003254) IN CSECT(I7852. ) LENGTH(2) 
1483 CCERR ADDRESS. HEX LOCATION (00003026) IN CSECT(I7852  ) LENGTH (2) 19 32 INTR1 ADDRESS. HEX LOCATION (0000322C) IN CSECT(I7852 ) LENGTH(2) 
852 CE ABSOLUTE HEX VALUE (0000002A) 1937 INTR2 ARDRESS. HEX LOCATION (0000323A) IN CSECT(I7852  ) LENGTH(1) 
932 CICB jiBSOLUTE HEX VALUE (00000014) 1945 INTR3 ADDRESS. HEX LOCATION(00003248) IN CSECT(I7852.  ) LENGTH(2) 
1138 CLDCB {LDDRESS. HEX LOCATION(00002DD8) IN CSECT(I7852 ) LENGTH (2) 1983 IOBLK ADDRESS. HEX LOCATION (0000328C) IN CSECT(I7852  ) LENGTH (2) 
1525 CMPRT ADDRESS. HEX LOCATION(00003048) IN CSECT(I7852  ) LENGTH (4) 1985 IODCB ADDRESS. HEX LOCATION (00003290) IN CSECT(I7852 |) LENGTH (2) 
1108 1014 1662 1665 1668 1680 1683 1686 1689 1697 
1573 CONVT ADDRESS. HEX LOCATION (0000306C) IN CSECT(I7852  ) LENGTH(4) 1701 1705 1713 1717 1720 1724 1784 #41790 2031 
1070 138 1986 IOMOD ADDRESS. HEX LOCATION(00003292) IN CSECT(I7852  ) LENGTH(2) 
1499 CPUID ABSOLUTE. HEX VALUE (00000232) 1086 1779 1785 
1366 40 17852 CSECT. START (00002500) LENGTH(3908) ESDID(0) 
850 cs ABSOLUTE. HEX VALUE (00000028) 40 
1783 1786 1892 1933 1962 1267 LGSEC ADDRESS. HEX LOCATION (00002 EA6) IN CSECT (17852 LENGTH (2) 
851 CSA ABSOLUTE HEX VALUE (00000029) 1069 1096 1097 1388 1399 1401 1574 1576 1579 
881 CSBUF PYBBRESS, HEX LOCATION (00002CBA) IN CSECT(I7852 ) LENGTH(1) 2099 LINE1 ADDRESS. HEX LOCATION (00003366) IN CSECT(I7852 ) LENGTH (40) 
1188 CSDCB ADDRESS. HEX LOCATION(00002E28) IN CSECT(I7852 ) LENGTH(2) 865 LSTIO ADDRESS. HEX LOCATION (00002CAQ) IN CSECT(I7852. ) LENGTH(2) 
1784 1452 1458 1464 1471 1477 #1788 = 2 
889 CSTL8 ADDRESS. HEX LOCATION(00002CC8) IN CSECT(I7852 ) LENGTH (2) 1610 LWSID ADDRESS HEX LOCATION(OOOO30AE) IN CSECT(I7852. ) LENGTH(4) 
871 DCBUF ADDRESS. HEX LOCATION(00002CAA) IN CSECT(I7852  ) LENGTH(1) 842 MI ABSOLUTE. HEX VALUE(00000020) 





L165 2) => 


DECLARED 


2073 
854 
849 
438 
44 
444 
Quy 
450 
453 
456 
459 
462 
465 
468 
471 
474 
477 
480 
489 
491 
503 
505 
514 
517 
526 
529 
538 
541 
550 
553 
562 
571 
574 
577 
580 
583 
592 
601 
604 
607 
807 
8 30 
104 


1268 
12 


2113 
924 
1221 
920 
ee, 
921 
1243 
1153 


UNSAFE ANALYSIS 


NAME 


MNVBUF 
NG 

NI 
N00001 
W00002 
N00003 
NOO004 
N00005 
N00006 
NO00007 
N00008 
N00009 
N00010 
NO0011 
N00012 
N00013 
NO0014 
NO00015 
NO0016 
N00017 
N00018 
N00019 
N00020 
N00021 
NO00022 
N00023 
NO0024 
N00025 
N00026 
N00027 
NO0028 
NO00029 
N00030 
NO00031 
N00032 
N00033 
N00034 
NO00035 
N00036 
N00037 
OPTN1 
OPTN3 
PARMARA 


PHYSC 
PID 


PIDMSG10 
PREP 
RDDCB 
RESET 
FICB 
RID 
RKDCB 

RS DCB 


J LD 4 


P/N= 


, 


1635275 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
1947 
ADDRESS. HEX LOCATION(000032F2) IN 
2077 2080 
ABSOLUTE. HEX VALUE (0000002C) 
ABSOLUTE. HEX VALUE (00000027) 
ADDRESS, HEX LOCATION (00002598) IN 
ADDPESS. HEX LOCATION (0000259C) IN 
ADDRESS. HEX LOCATION(000025A0) IN 
ADDRESS. HEX LOCATION(000025A4) IN 
ADDRESS. HEX LOCATION(000025A8) IN 
ADDPESS. HEX LOCATION(000025AC) IN 
ADDRESS. HEX LOCATION(000025B0) IN 
ADDRESS. HEX LOCATION(000025B4) IN 
ADDRESS. HEX LOCATION(000025B8) IN 
ADDRESS. HEX LOCATION(000025BC) IN 
ADDRESS. HEX LOCATION(000025C0) IN 
ADDRESS. HEX LOCATION(000025C4) IW 
ADDRESS. HEX LOCATION(000025C8) IN 
ADDRESS. HEX LOCATION(000025CC) IN 
ADDRESS. HEX LOCATION (000025D0) IN 
ADDRESS. HEX LOCATION(000025DE) IN 
ADDRESS. HEX LOCATION(000025E0) IN 
ADDRESS. HEX LOCATION(000025F2) IN 
ADDRESS. HEX LOCATION(000025F4) IN 
ADDRESS. HEX LOCATION(00002602) IN 
ADDRESS. HEX LOCATION (00002606) IN 
ADDRESS. HEX LOCATION(00002614) IN 
ADDRESS. HEX LOCATION(00002618) IN 
ADDRESS. HEX LOCATION(00002626) IN 
ADDRESS. HEX LOCATION(0000262A) IN 
ADDRESS. HEX LOCATION(00002638) IN 
ADDRESS, HEX LOCATION(0000263C) IN 
ADDRESS. HEX LOCATION(0000264A) IN 
ADDRESS. HEX LOCATION(00002658) IN 
ADDPESS. HEX LOCATION(0000265C) IN 
ADDRESS. HEX LOCATION (00002660) IN 
ADDRESS, HEX LOCATION (00002664) IN 
ADDRESS; HEX LOCATION(00002668) IN 
ADDRESS. HEX LOCATION(00002676) IN 
ADDPESS. HEX LOCATION (00002684) IN 
ADDRESS, HEX LOCATION (00002688) IN 
ADDRESS. HEX LOCATION(0000268C) IN 
ADDRESS. HEX LOCATION(00002C94) IN 
1061 1361 1891 19 
ADDRESS. HEX LOCATION(00002C98) IN 
1978 2026 
ADDRESS. HEX LOCATION (0000196E) I 
48? 501 512 524 °&536 48 
ADDRESS. HEX LOCATION (00002EA8) IN 
1071 1072 1073 1074 #1390 1581 
ADDRESS. HEX LOCATION(00001800) IN 
74 75 76 77 78 79 
83 84 85 86 87 88 
92 93 94 95 96 97 
101 102 103 104 #105 106 
110 1171 2112) 9732221184115 
ABSOLUTE. HEX VALUE (0000F1F0) 
ABSOLUTE. HEX VALUE (0000000C) 
1016 2036 
ADDRESS. HEX LOCATION(00002E58) IN 
1677 1680 
ABSOLUTE. HEX VALUE (00000008) 
j ABSOLUTE. HEX VALUE (00000013) 
ABSOLUTE. HEX VALUE (00000009) 
ADDRESS. HEX LOCATION(00002E78) IN 
1074 1689 1694 170 
ADDRESS. HEX LOCATION(00002DF8) IN 


CSECT (17852 


CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT(I7852 
CSECT (17852 
CSECT (17852 
CSECT(I7852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT(I7852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT(I7852 
CSECT (17852 
CSECT (17852 
CSECT (17852 
CSECT (17852 


N CSECT (17852 
560 569 


CSECT (17852 
1583 1588 
CSECT (17852 
80 81 
89 90 
98 99 
107. +108 
2081 


CSECT (17852 


CSECT (17852 
CSECT (17852 


Co a ty) ae a 
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) LENGTH (2) 


) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LFNGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH(2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 


LENGTH (1 
590 — 


) LENGTH (2) 
LENGTH (1) 


—_ 
ocun~” 
WO-n 


) LENGTH (2) 


) LENGTH (2) 
) LENGTH (2) 


L185 2-52 


DECLARED 


1585 
870 


1278 
1177 


222 
107 
1092 
1111 
1100 
1070 
1110 
1057 
1103 
1389 
1399 
1404 
1374 
1583 
1589 
1532 
95 
894 
77 
78 
1371 
1373 
1372 
1018 
1019 
1359 
1059 
1013 
1210 
1232 
1199 
1271 
1143 
1275 
846 
844 
1779 


1960 
1967 
1784 
1969 
1978 
1853 
1788 
1801 
1813 
1253 


UNSAFE ANALYSTS 


NAME 


RTTO1 
SCTID 


SCTST 
SKDCB 


START 
SUPSTAT 
S11B 
S11G 
S118 
S11K 
S11R 
$1158 
S11P 
S20B 
S$20C 
S20D 
TO720 
TT303 
TT304 
TT4Y 
TUMSGWTR 
TURTN 
TUSTATUS 
TUWORK 
T20TC 
T20T1 
T20T2 
T72A 
T72B 
T7820 
T7834 
T7872 
VRDCB 
WK DCB 
WRDCB 
WRSID 
WSDCB 
WSIDT 
XE 

XT 

XIO 


XIOCK 
XTOCO 
XTOCS 
XIOCV 
XIOCX 
XIOER 
xIo1 

xIO2 

XIO8 

ZEROO 








OO 


P/N=1635275 EC=755285 PAGE 11A 
CROSS-PEFERENCE LISTING COPYRIGHT IBM CORP 1976 
ATTRIBUTES AND REFERENCES 
1071 1387 1390 1668 1673 1705 1710 
ADDRESS. HEX LOCATION(0000309A) IN CSECT(I7852 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00002CA2) IN CSECT (17852 Y LENGTH (2) 
1160 1172 50 1395 1397 1530 1611 1670 1673 
ADDRESS. HEX LOCATION(00002EBC) IN CSECT(I7852 ) LENGTH (2) 
1526 1702 1707 1710 
ADDRESS. HEX LOCATION (00002518) IN CSECT(I7852 ) LENGTH (2) 
1065 1066 1088 1090 1092 1094 1380 1381 1382 
ABSOLUTE. HEX VALUE(0000000A) 
oADDRESS. HEX LOCATION(000019C4) IN CSECT(I7852 ) LENGTH(1) 
jADDRESS. HEX LOCATION(00002D88) IN CSECT(I7852 ) LENGTH (6) 
ADDRESS. HEX LOCATION(00002DC4) IN CSECT(I7852 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002DA6) IN CSECT(I7852 ) LENGTH(4) 
1063. 1068 1076 1083 1089 1093 1105 1107 
ADDRESS. HEX LOCATION (00002D28) IN CSECT(I7852 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00002DC0) IN CSECT(I7852 ) LENGTH(4) 
ADDRESS, HEX LOCATION (00002D1C) IN CSECT(I7852 ) LENGTH (4) 
jADDPESS. HEX LOCATION(OO002DAA) IN CSECT(I7852 ) LENGTH(4) 
ADDRESS. HEX LOCATION(00002F86) IN CSECT(I7852 ) LENGTH(4) 
jADDPESS. HEX LOCATION (OOOO2FAC) IN CSECT(I7852 ) LENGTH(6) 
ADDRESS, HEX LOCATION(OOO02FBE) IN CSECT(I7852 ) LENGTH (4) 
ADDRESS. HEX LOCATION(O0002F4C) IN CSECT(I7852 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00003092) IN CSECT(I7852  ) LENGTH(6) 
ADDRESS. HEX LOCATTON(000030AA) IN CSECT(I7852 ) LENGTH (4) 
1573. 1582 1584 
RBDRESS. HEX LOCATION (00003062) IN CSECT(I7852 ) LENGTH (2) 
> ADDRESS. HEX LOCATION(000018BA) IN CSECT(I7852 ) LENGTH(1) 
ADDPESS. HEX LOCATION(00002CD2) IN CSECT(I7852 ) LENGTH(2) 
1013. 1018 59 1359 2091 
jADDRESS. HEX LOCATION(00001818) IN CSECT(I7852 ) LENGTH (1) 
ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7852 ) LENGTH(1) 
ADDRESS. HEX LOCATION(00002F40) IN CSECT(I7852 ) LENGTH(6) 
ADDRESS. HEX LOCATION (00002F48) IN CSECT(I7852 ) LENGTH(4) 
ADDPESS. HEX LOCATION(00002F46) IN CSECT(I7852 ) LENGTH(2) 
ADDRESS. HEX LOCATION(O0002CF4) IN CSECT(I7852 ) LENGTH(4) 
ADDRESS. HEX LOCATION(O0002CF8) IN CSECT(I7852 ) LENGTH (4) 
ADDRESS. HEX LOCATION (00002F18) IN CSECT(I7852 ) LENGTH (4) 
ADDRESS. HEX LOCATION (00002CFC) IN CSECT(I7852  ) LENGTH(4) 
507. 519 531 43° 555 64 585 | 594 
ADDPESS. HEX LOCATION(00002CE2) IN CSECT(I7852 ) LENGTH(4) 
ADDRESS. HEX LOCATION(00002E48) IN CSECT(I7852 ) LENGTH (2) 
ADDRESS. HFX LOCATION(00002E68) IN CSECT(I7852 ) IENGTH(2) 
1073. 1697 1698 1713 1714 
ADDRESS. HEX LOCATION (00002E38) IN CSECT(I7852 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002 EAE) IN CSECT(I7852 ) LENGTH (2) 
1150 1239 1531 1612 1714 18 
ADDRESS. HEX LOCATION(00002DE8) IN CSECT(I7852 ) LENGTH(2) 
1072. 1717. 1718 1720 1721 
ADDRESS. HEX LOCATION (0000 2EB6) IN CSECT(I7852 ) LENGTH (2) 
1077. 1078 1079 1527 1698 1721 
ABSOLUTE. HEX VALUE (00000024) 
1898 1960 
ABSOLUTE. HEX VALUE (00000022) 
1804 1945 
ADDRESS. HEX LOCATION (00003185) IN CSECT(I7852 ) LENGTH (4) 
1663. 1666 1674 1681 1684 1687 1695 1699 1703 
1711. 1715 1719 1722 1725 
ADDRESS. HEX LOCATION (00003256) IN CSECT(I7852 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003268) IN CSECT(I7852 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003198) IN CSECT(I7852 ) LENGTH (6) 
ADDRESS. HEX LOCATION(0000326C) IN CSECT(I7852 ) LENGTH(2) 
jADDRESS. HEX LOCATION(00003286) IN CSECT(I7852 ) LENGTH(4) 
ADDRESS. HEX LOCATION(000031F4) IN CSECT(I7852 ) LENGTH(2) 
ADDRESS. HEX LOCATION(000031A8) IN CSECT(I7852 ) LENGTH (4) 
ADDRESS. HEX LOCATION(000031CE) IN CSECT(I7852  ) LENGTH(2) 
jADDRESS. HEX LOCATION (000031E2) IN CSECT(I7852 ) LENGTH(2) 
)ABDRESS. | HEX LOCATION (00002E88) IN CSECT(I7852 ) LENGTH (2) 
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